home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASCALL / NEETVGA / RGB / ROGER.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-12  |  857b  |  53 lines
  1. unit roger;
  2.  
  3. interface
  4. type
  5.      rogerrgbpalette=array[1..768] of byte;
  6.  
  7. Procedure Store(var z:rogerrgbpalette);
  8. Procedure PutColor(a,b,c,d : Integer);
  9. Procedure Restore(z:rogerrgbpalette);
  10.  
  11.  
  12. implementation
  13.  
  14. Procedure Store(var z:rogerrgbpalette);
  15. var
  16.      j,i:integer;
  17. Begin
  18.    i := 0;
  19.    j := 1;
  20.    For i := 0 To 255 Do
  21.    Begin
  22.       Port[$3C7] := i;
  23.       z[j] := Port[$3C9];  Inc(j);
  24.       z[j] := Port[$3C9];  Inc(j);
  25.       z[j] := Port[$3C9];  Inc(j);
  26.    End;
  27. End;
  28.  
  29. Procedure PutColor(a,b,c,d : Integer);
  30. Begin
  31.    Port[$3C8] := a;
  32.    Port[$3C9] := b;
  33.    Port[$3C9] := c;
  34.    Port[$3C9] := d;
  35. End;
  36.  
  37. Procedure Restore(z:rogerrgbpalette);
  38. var
  39.      j,i:integer;
  40. Begin
  41.    i := 0;
  42.    j := 1;
  43.    For i := 0 To 255 Do
  44.    Begin
  45.       PutColor(i,z[j],z[j+1],z[j+2]);
  46.       Inc(j,3);
  47.    End;
  48. End;
  49.  
  50.  
  51.  
  52. begin
  53. end.